home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2620A.ZIP / EXAMP1.ZIP / RMEX160.BAS < prev    next >
BASIC Source File  |  1990-04-03  |  498b  |  20 lines
  1. ' draw a diagonal line across the screen
  2. SCREEN 1,0
  3. LINE (0,0) - (319,199)
  4. ' draw a horizontal dashed line
  5. LINE (0,100) - (319,100),,,&HCCCC
  6. ' draw a 50-pixel square filled with color 2
  7. ' with the upper left-hand corner at (10,20)
  8. LINE (10,20) - (60,70), 2, BF
  9. ' draw a large "B"
  10. READ x,y
  11. PSET (x,y)             'set the LPR
  12. FOR n = 1 TO 11
  13.   READ x,y
  14.   LINE - (x,y)
  15. NEXT n
  16. DELAY 2
  17. END
  18.  
  19. DATA 10,20, 50,20, 55,25, 55,40, 50,45, 10,45
  20. DATA 50,45, 55,50, 55,65, 50,70, 10,70, 10,20